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1 Window SetContext, "Coption=NO TITLE-NOTEPAD",'" 
MenuSeiect "FILE (F) -> OPEN (0)..." 

n Window SetContext, "Caption=OPEN","" 
PushButton Click, "Text=CANCEL" 
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MENU SELECTION, FILE (F)— OPEN (0)..., BUTTON, OPEN, CANCEL,... 
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do while MyArray(l )<>NULL 

if MyArray(l) = "MENU SELECTION"then 
Menu(MyArray(1 +1 )) 

else 

end if 
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Function Setf(b) < FUNCTION STARTS 

Window SetContext, "Caption = "+b+"", 

End Function < FUNCTION ENDS 

Function CancelBut(a) 
PushButton Click, "Text="+a + "" 
End Function 
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